home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 8 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  373b  |  10 lines
  1. 10 poke 53265,peek(53265) and 247       :rem 24-zeilen-modus
  2. 20 printchr$(147)                           :rem bildschirm loeschen
  3. 30 for x=1 to 24:printchr$(17);:next        :rem cursor an unteren rand
  4. 40 poke 53265,(peek(53265) and 248) + 7 :rem position fuer 1.scroll
  5. 50 print"hallo";
  6. 60 for p=6 to 0 step -1
  7. 70 poke 53265,(peek(53265) and 248) + p
  8. 80 for x=1 to 50:next                   :rem verzoegerungsschleife
  9. 90 next p:goto 40
  10.